home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PASCALL
/
VIDEO
/
FID.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-06-16
|
610b
|
30 lines
program fid;
{$M $800,$400,$800 } { 2K stack, 1/2K heapmin, 1K heapmax }
uses
Crt,Dos,FVid;
var
KbdIntVec : Procedure;
Scren1 ,
Scren2 : TVid;
{$F+}
procedure Keyclick; interrupt;
begin
if Port[$60]<$80 then
begin
Scren1.Bo;
Scren2.Bo;
end;
inline ($9C); { PUSHF -- Push flags }
{ Call old ISR using saved vector }
KbdIntVec;
end;
{$F-}
begin
Scren1.Init(7);
Scren2.Init(white);
{ Insert ISR into keyboard chain }
GetIntVec($9,@KbdIntVec);
SetIntVec($9,Addr(Keyclick));
Keep(0); { Terminate, stay resident }
end.